home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / STRIPSIN < prev    next >
Encoding:
Text File  |  2001-03-02  |  1.1 KB  |  31 lines
  1. 10    ! **************************************************
  2. 20    ! Example: STRIPCHART (Sine Waves)
  3. 30    !
  4. 40    ! This program builds a scrolling STRIPCHART widget
  5. 50    ! that displays four sine waves.
  6. 60    !
  7. 70    ! **************************************************
  8. 80    !
  9. 90   INTEGER I
  10. 100  REAL D(1:4)
  11. 110  ASSIGN @Graph TO WIDGET "STRIPCHART"
  12. 120  CONTROL @Graph;SET ("TITLE":" Example: STRIPCHART (Sine Waves)")
  13. 130  CONTROL @Graph;SET ("X":50,"Y":25,"VISIBLE":0)
  14. 140  CONTROL @Graph;SET ("CURRENT AXIS":"X","ORIGIN":0,"RANGE":4)
  15. 150  CONTROL @Graph;SET ("NUMBER FORMAT":"MINUTES","DIGITS":9)
  16. 160  CONTROL @Graph;SET ("CURRENT AXIS":"Y","ORIGIN":-50)
  17. 170  CONTROL @Graph;SET ("RANGE":100,"VISIBLE":1)
  18. 180  CONTROL @Graph;SET ("SYSTEM MENU":"Quit")
  19. 190  ON EVENT @Graph,"SYSTEM MENU" GOTO Finis
  20. 200  Start=TIMEDATE
  21. 210  WHILE 1
  22. 220      T=TIMEDATE-Start
  23. 230      FOR I=1 TO 4
  24. 240          D(I)=-62+25*I+10*SIN(T*I*3)
  25. 250      NEXT I
  26. 260      CONTROL @Graph;SET ("POINT LOCATION":T,"VALUES":D(*))
  27. 270  END WHILE
  28. 280 Finis:   !
  29. 290  ASSIGN @Graph TO *           ! Delete STRIPCHART widget
  30. 300  END
  31.